home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0021 / demo_2 / demo_2.lst < prev    next >
File List  |  1997-04-16  |  1KB  |  63 lines
  1. Cls
  2. For I=0 To 639
  3.   Line I,0,I,199
  4. Next I
  5. Color 0
  6. For J=1 To 2
  7.   For I=0 To 320
  8.     Box I,I/320*100,640-I,200-I/320*100
  9.   Next I
  10.   Color 1
  11. Next J
  12. Color 0
  13. For I=0 To 639
  14.   Line I,0,640-I,200
  15. Next I
  16. For I=0 To 199
  17.   Line 639,I,0,200-I
  18. Next I
  19. Color 1
  20. Graphmode 3
  21. For J=1 To 640
  22.   For I=0 To 639 Step J
  23.     Line I,0,I,199
  24.   Next I
  25. Next J
  26. For J=1 To 640 Step 1
  27.   For I=0 To 639 Step J
  28.     Line I,0,I,199
  29.   Next I
  30. Next J
  31. Cls
  32. I=0
  33. For J=1 To 19
  34.   Plot I,Sin(I/10)*10+10*J
  35.   For I=0 To 640 Step 10
  36.     Draw  To I,Sin(I/10)*10+10*J
  37.   Next I
  38.   I=0
  39. Next J
  40. Cls
  41. Graphmode 3
  42. M=0
  43. N=M/3.2
  44. For H%=1 To 639 Step 10
  45.   Gosub P_rocedure1
  46. Next H%
  47. D_o:
  48. Graphmode 3
  49. For M=0 To 639 Step 2
  50.   N=M/3.2
  51.   For I%=M To 639-M Step 20
  52.     Draw I%,N To 639-M,I%/3.2 To 640-I%,199-N To M,200-I%/3.2 To I%,N
  53.   Next I%
  54. Next M
  55. Edit
  56. Procedure P_rocedure1
  57.   For J=1 To 2
  58.     For I%=M To 639-M Step H%
  59.       Draw I%,N To 639-M,I%/3.2 To 640-I%,199-N To M,200-I%/3.2 To I%,N
  60.     Next I%
  61.   Next J
  62. Return
  63.